home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 3 / AGA Experience Volume 3 (1997)(NFA - SAdENESS)[!].iso / software / utilities / comms / amirc1_40 / install_amirc < prev    next >
Text File  |  1997-02-24  |  28KB  |  668 lines

  1. ;******************************************************************************
  2. ;        ____           ______ ______  ______
  3. ;       / __ \         /_  __// __  / / __  /
  4. ;      / /_/ /_   _     / /  / /_/ / / /  -'
  5. ;     / __  // \_/ \   / /  /   __/ / /
  6. ;    / / / // /__/ /__/ /_ / /\ \  / /___
  7. ;   /_/ /_//_/  /_//_____//_/  \_\ \____/
  8. ;
  9. ; $VER: 1.40i (February-24-1997) 
  10. ; Changes, suggestions or problems: rcr@vgr.com
  11. ; If you wish to use any part of this installer you must ask.
  12. ;
  13. ; AmIRC ©1995-1997 by Oliver Wagner
  14. ; AmIRC Installer by Robert C. Reiswig ©1995,1996,1997 
  15. ;******************************************************************************
  16.  
  17. ;*** System Stuff ***
  18. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  19. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  20. (set osver (/ (getversion "LIBS:version.library") 65536))
  21. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  22. (set fastmem (- totmem graphmem))
  23.  
  24. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  25. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  26. (if (= osver 41) (set workbench "4.0")) 
  27.  
  28. (set cpu (database "cpu"))
  29. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  30. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  31. (if (= cpu 68040) (set #cpu 4)) 
  32. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  33.  
  34. (set vernum1 (getversion "AmIRC"))
  35. (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  36. (set AmIRCver (cat ver1 "." rev1))
  37.  
  38. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  39. (set lan 0)
  40.  
  41. (if (= "english" lanfound) (set lan 0))  (if (= "deutsch"  lanfound) (set lan 1))
  42. (if (= "français" lanfound) (set lan 2)) (if (= "Español" lanfound) (set lan 3))
  43. (if (= "Svenska" lanfound) (set lan 4))  (if (= "nederlands" lanfound) (set lan 5))
  44. (if (= "italiano" lanfound) (set lan 6)) (if (= "norsk"  lanfound) (set lan 7))
  45. (if (= "português" lanfound) (set lan 8))
  46.  
  47. (set #English    "English")  (set #Deutsch    "Deutsch")
  48. (set #Français   "Français") (set #Español    "Español")
  49. (set #Svenska    "Svenska")  (set #Nederlands "Nederlands")
  50. (set #Italiano   "Italiano") (set #Norsk      "Norsk")    
  51. (set #Português  "Português")
  52.  
  53. (set mfound 0) (set newicon1 1) 
  54. (set keeper 1) (set firsttime 0)
  55.  
  56. ;********************************************************************
  57. ; English Strings
  58. ;********************************************************************
  59. (set #about (cat "\n\nWelcome to AmIRC " AmIRCver "\n\nCopyright © 1995-1997 by\n\nOliver Wagner\n<owagner@vapor.com>\n\nhttp://www.vapor.com/amirc/\nftp://ftp.vapor.com/pub/amirc/") )
  60. (set #nomui (cat "\n\nAmIRC uses Magic User Interface (MUI).\n\nThe installer has not found MUI: to be assigned, "
  61.                  "therefore you AmIRC will not work correctly.  You will need to install "
  62.                  "MUI before running AmIRC."
  63.             )
  64. )
  65. (set #whereAmIRC "Where do you wish to install AmIRC. A directory called 'AmIRC' will be created if one is not there. If a copy of AmIRC is found it will be backed up.")
  66. (set muiver "No Version Installed")
  67. (set #newermui "\nAmIRC needs version 3.6 or higher of MUI installed to work correctly.\n\nNow would be a good time to Upgrade!\n\nYou can find mui33usr.lha on Aminet in dev/gui\n\nIt looks like you have: \n\n")
  68. (set #need-os "\n\nThe 68020 version of AmIRC needs version 3.6 or higher of the Amiga OS installed to work correctly.\n\n It looks like you have: \n\n")
  69. (set #000used "\n\nThe 68000 version will be installed.") 
  70. (set #filethere1 "\n\nThe installer has found AmIRC version ")
  71. (set #filethere2 " at ")
  72. (set #filethere3 "\n\nThe file will be renamed to ")
  73. (set #filethere4 " and it will then be moved to ")
  74. (set #backuptoXXX "Back-UP to file named 'AmIRC")
  75. (set #copyover "Copy Over Old Version")
  76. (set #AmIRCfound "\nThe Installer has found a copy of AmIRC already installed. What do you want to do?\n")
  77. (set #askcpu "\nCPU Check: What CPU does the machine have that you are installing AmIRC on? The installer has found:\n")
  78. (set #newicon "\nDo you wish to copy over The AmIRC Icon from the archive? If you have any ToolTypes already set you should select no.\n")
  79. (set #nonewicon  "No  - ToolTypes already set.")
  80. (set #yesnewicon "Yes - Copy over Icon.")
  81. (set #pickicon "\nAmIRC has 3 different icons you can use choose from. Which one would you like to use?\n")
  82. (set #nomultiview (cat "The installer could not find multiview or you are running on a 2.x Amiga. "
  83.                        "The AmIRC Installer will let you choose between 3 different icon to use. Their "
  84.                        "names are:\n\n'AmIRC - Default'\n'AmIRC2 - Globe'\n'AmIRC3 - 4 Faces'\n\n"
  85.                        "You can use a picture viewer to look at the '3Icons.iff' to see the choices side-by-side, "
  86.                        "or you can just look in the drawer from where you are installing AmIRC from."
  87.                   )
  88. )
  89. (set #whatcat "\nSelect the AmIRC Language catalog you wish to install.\n")
  90. (set #wherecat "\nWhere do you wish to install the AmIRC Language Catalog? Default is ")
  91. (set #catnofind "Can not find this catalog in this AmIRC archive. You may need to get the complete archive from the support site.")
  92. (set #whatdocs "\nWhat AmIRC documentation would you like to install?\n")
  93. (set #wheredocs "Where would you like the AmIRC documentation you selected to be installed?")
  94. (set #nofounddocs "\n\nThe Docs that are listed below, from the ones that you selected,  were not found in the AmIRC archive. You may need to get the complete archive from the support site.")
  95. (set #whatrexx "What AREXX Commands would you like to install? They will be placed in ")
  96. (set #notinthisarc "(* = Not found in this archive.)")
  97. (set #rexxsize1 ". There is about ")
  98. (set #rexxsize2 "K total of AREXX scripts.\n")
  99. (set #rexx1 "Away        - Away/Back script")
  100. (set #rexx2 "Finger      - AmiTCP finger script")
  101. (set #rexx3 "Leave       - Leave a channel w/msg")
  102. (set #rexx4 "WallChop    - Message all Chops on a channel")
  103. (set #rexx5 "SendBrowser - Sends URLs to Broswers")
  104.  
  105. (set #whatsnd "\nWhat Sounds would you like to install? They will be placed in ")
  106. (set #sndsize1 ". There is about ")
  107. (set #sndsize2 "K total of Sound files.\n")
  108. (set #snd1 " Gost Set")
  109. (set #snd2 " Sandro Set")
  110. (set #snd3 " Smkn Set")
  111.  
  112. (set #whatsub "\nWhat Submissions would you like to install? They will be placed in ")
  113. (set #subsize1 ". There is about ")
  114. (set #subsize2 "K total of Submissions files.\n")
  115. (set #sub1 " Extra Icons")
  116. (set #sub2 " Extra ARexx Scripts")
  117. (set #sub3 " Toolmanager Animbrush")
  118.  
  119. (set #oktodelete1 "\nIs it ok to delete the older AmIRC binary so that the AmIRC Directory can be made?\n")
  120. (set #oktodelete2 "\nIs it ok to delete the older _renamed_ AmIRC binary so that the AmIRC Directory can be made?\n")
  121. (set #ifyoulike (cat "If you like AmIRC you might want to take a look at AmFTP.  It Includes the following:\n\nHigh speed asynchronous transfers for maximum efficiency, "
  122.                      "Batch download facility, Resume partially received files, FTP-Server Phonebook, Full ADT Support, Full ARexx support, Archie search engine, "
  123.                      "and much more!\n\nAmFTP can be found on Aminet in comm/tcp or\nhttp://www.vapor.com/amftp/"
  124.                 )
  125. )
  126. (set #byebye (cat "\nAmIRC Install Complete!\n\n" ))
  127. ;********************************************************************
  128. ; Hello
  129. ;********************************************************************
  130. (message #about)
  131. (welcome) 
  132.  
  133. ;********************************************************************
  134. ; MUI installed?
  135. ;********************************************************************
  136. (if (< (exists "mui:") 2)  (message #nomui) )
  137.  
  138. ;********************************************************************
  139. ; Check on New installer 
  140. ;********************************************************************
  141. (set #updateinstaller "\nJust to let you know ESCOM AG has released a new version of the installer program.\n\n\nVersion 43.3 can be found on Aminet in:\n\n/util/misc/Installer-43_3.lha\n\n\nYou might want to upgrade soon, if you can. The AmIRC installer will need it. Older installers might fail.")
  142. (set InstallerVer 0)
  143. (set vernum1 @installer-version) (set ver1 (/ vernum1 65536)) 
  144. (set rev1 (- vernum1 (* ver1 65536) ) ) (set InstallerVer (cat ver1 "." rev1))
  145. (set current_installer "43.3")
  146. (if (< InstallerVer current_installer) (message #updateinstaller) )
  147.  
  148.  
  149. ;********************************************************************
  150. ; Ask where to put AmIRC & Make dir if needed
  151. ;********************************************************************
  152. (set Package (getassign "AmiTCP"))
  153. (if (= Package "") (set Package (getassign "Inet")) )
  154.  
  155. (set AmIRCdir  (askdir (prompt #whereAmIRC)
  156.                (help   #whereAmIRC)
  157.                     (default Package)
  158.                )  
  159. )
  160.  
  161. (set where AmIRCdir)
  162.  
  163. (if (= 1 (exists (tackon where "AmIRC") ) ) 
  164.   (
  165.     (set vernum1 (getversion (tackon where "AmIRC") ))
  166.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  167.     (set AmIRC_old (cat ver1 "." rev1))
  168.  
  169.     (message (cat #filethere1 ver1 "." rev1 #filethere2 where #filethere3 
  170.                   (cat "AmIRC" AmIRC_old) #filethere4 (tackon AmIRCdir "AmIRC") )
  171.     )
  172.     
  173.  
  174.     (copyfiles (source (tackon where "AmIRC"))
  175.                (dest where) 
  176.                (infos)
  177.                (newname (cat "AmIRC" AmIRC_old))
  178.     )
  179.     
  180.     (delete (tackon AmIRCdir "AmIRC") (prompt #oktodelete1) (help #oktodelete1) (confirm) (infos)) 
  181.     
  182.  
  183.     (if (< (exists (tackon AmIRCdir "AmIRC")) 2) (makedir (tackon AmIRCdir "AmIRC") (infos)) )    
  184.  
  185.     (copyfiles (source (tackon where (cat "AmIRC" AmIRC_old) ))
  186.                        (dest (tackon AmIRCdir "AmIRC")) 
  187.                        (infos)
  188.                
  189.     )
  190.  
  191.     (delete (tackon where (cat "AmIRC" AmIRC_old)) (prompt #oktodelete2) (help #oktodelete2) (confirm) (infos) ) 
  192.  
  193.     ;(set firsttime 1)
  194.  
  195.   )
  196. )
  197.  
  198. (if (< (exists (tackon AmIRCdir "AmIRC")) 2) (makedir (tackon AmIRCdir "AmIRC") (infos)) )
  199. (set where (tackon AmIRCdir "AmIRC"))
  200. (set @default-dest where)
  201.  
  202. ;********************************************************************
  203. ; Double Check on the CPU
  204. ;********************************************************************
  205. (set cpuPick (askchoice (choices "68000" "68010" "68020" "68030"
  206.                          "68040" "68060"
  207.                 )
  208.              (prompt #askcpu)
  209.                      (help   #askcpu)
  210.                    (default #cpu)
  211.       )
  212. )
  213.  
  214. ;********************************************************************
  215. ; Check for AmIRC020 requs
  216. ;********************************************************************
  217. (set ver 0)
  218. (if (exists "mui:mui") 
  219.  (
  220.   (set vernum (getversion "mui:mui") )
  221.   (set ver (/ vernum 65536)) (set rev (- vernum (* ver 65536) ) )
  222.  
  223.   (if (= ver 7) (set muiver "2.0") )   (if (= ver 8) (set muiver "2.1") )
  224.   (if (= ver 9) (set muiver "2.2") )   (if (= ver 10) (set muiver "2.3") )
  225.   (if (= ver 11) (set muiver "3.0") )  (if (= ver 12) (set muiver "3.1") )
  226.   (if (= ver 13) (set muiver "3.2") )  (if (= ver 14) (set muiver "3.3") )
  227.   (if (= ver 15) (set muiver "3.4") )  (if (= ver 16) (set muiver "3.5") )
  228.   (if (= ver 17) (set muiver "3.6") )  (if (= ver 18) (set muiver "3.7") )
  229.   (if (= ver 19) (set muiver "3.8") )  (if (= ver 19) (set muiver "3.9") )
  230.  )
  231. )
  232.  
  233. (if (< ver 17)   ( (message (cat #newermui muiver))   (set cpuPick 0) ))
  234. (if (< osver 39) ( (message (cat #need-os workbench #000used)) (set cpuPick 0) ))
  235.  
  236. ;********************************************************************
  237. ; Check for old & backup
  238. ;********************************************************************
  239. (if (exists (tackon where "AmIRC")) 
  240.   (
  241.       (set vernum1 (getversion (tackon where "AmIRC") ))
  242.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  243.       (set AmIRC_old (cat ver1 "." rev1))
  244.  
  245.       (set keeper  (askchoice (choices  (cat #backuptoXXX AmIRC_old "'")  #copyover)
  246.                      (prompt #AmIRCfound)
  247.                  (help   #AmIRCfound)
  248.                      (default 0)
  249.                )
  250.       )    
  251.  
  252.  
  253.       (if (= keeper 0)
  254.          (copyfiles (source (tackon where "AmIRC"))
  255.                      (dest where) 
  256.                      (infos)
  257.                      (newname (cat "AmIRC" AmIRC_old))
  258.          )
  259.       )          
  260.  
  261.       (set firsttime 1)
  262.     
  263.   )
  264. )
  265.  
  266. ;********************************************************************
  267. ; Copy over correct AmIRC and Icon if wanted
  268. ;********************************************************************
  269. (if ( > cpuPick 1)
  270.    (copyfiles (source "AmIRC020") (dest where) (optional "nofail") (newname "AmIRC") )
  271.  
  272.    (copyfiles (source "AmIRC") (dest where) (optional "nofail") )
  273. )
  274.  
  275. (if (= firsttime 0)  (copyfiles (source "AmIRC.info") (dest where) (optional "nofail") ) )
  276.  
  277.  
  278. (if (= keeper 0) 
  279.   (
  280.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  281.                            (prompt #newicon)
  282.                        (help   #newicon)
  283.                            (default 0)
  284.             )
  285.    )
  286.   
  287.    (if (= newicon 0) 
  288.      (copyfiles (source "AmIRC.info") (dest where)  (optional "nofail") )
  289.    )
  290.  
  291.   )
  292. )
  293.  
  294. (if (exists ("RegisterAmIRC"))
  295.  (copyfiles (source "RegisterAmIRC") (dest where)  (infos) (optional "nofail") )
  296. )
  297.  
  298. ;********************************************************************
  299. ; Select and copy over AmIRC Catalog
  300. ;********************************************************************
  301. (if (> (exists "catalogs") 0) 
  302. (
  303. (set XX 0) (set lan 0)
  304. (foreach "Catalogs" "#?"
  305.  (
  306.   (set XX (+ XX 1)) 
  307.   (textfile (dest (cat "ENV:i.høld." XX)) (append @each-name) ) 
  308.   (if (= lanfound @each-name) (set lan XX))
  309.  
  310.   (if (= (patmatch "#?.c#?" @each-name) 1) 
  311.      ( (delete (cat "ENV:i.høld." XX)) (set XX (- XX 1))  )
  312.   )
  313.  
  314.  )
  315. )
  316.  
  317. (set l1 "N/A") (set l2 "N/A") (set l3 "N/A") (set l4 "N/A") (set l5 "N/A")
  318. (set l6 "N/A") (set l7 "N/A") (set l8 "N/A") (set l9 "N/A") (set l10 "N/A")
  319. (set l11 "N/A") (set l12 "N/A") (set l13 "N/A") (set l14 "N/A") (set l15 "N/A") 
  320.  
  321. (set l0 "English")
  322. (if (> (exists ("ENV:i.høld.1")) 0)   (set l1 (getenv "ENV:i.høld.1")) ) (if (> (exists ("ENV:i.høld.2")) 0)   (set l2 (getenv "ENV:i.høld.2")) )
  323. (if (> (exists ("ENV:i.høld.3")) 0)   (set l3 (getenv "ENV:i.høld.3")) ) (if (> (exists ("ENV:i.høld.4")) 0)   (set l4 (getenv "ENV:i.høld.4")) )
  324. (if (> (exists ("ENV:i.høld.5")) 0)   (set l5 (getenv "ENV:i.høld.5")) ) (if (> (exists ("ENV:i.høld.6")) 0)   (set l6 (getenv "ENV:i.høld.6")) )
  325. (if (> (exists ("ENV:i.høld.7")) 0)   (set l7 (getenv "ENV:i.høld.7")) ) (if (> (exists ("ENV:i.høld.8")) 0)   (set l8 (getenv "ENV:i.høld.8")) )
  326. (if (> (exists ("ENV:i.høld.9")) 0)   (set l9 (getenv "ENV:i.høld.9")) ) (if (> (exists ("ENV:i.høld.10")) 0) (set l10 (getenv "ENV:i.høld.10")) )
  327. (if (> (exists ("ENV:i.høld.11")) 0) (set l11 (getenv "ENV:i.høld.11")) )(if (> (exists ("ENV:i.høld.12")) 0) (set l12 (getenv "ENV:i.høld.12")) )
  328. (if (> (exists ("ENV:i.høld.12")) 0) (set l13 (getenv "ENV:i.høld.13")) )(if (> (exists ("ENV:i.høld.14")) 0) (set l14 (getenv "ENV:i.høld.14")) )
  329. (if (> (exists ("ENV:i.høld.15")) 0) (set l15 (getenv "ENV:i.høld.15")) )(if (> (exists ("ENV:i.høld.16")) 0) (set l15 (getenv "ENV:i.høld.16")) )
  330. (run "delete env:i.høld.#?")
  331.  
  332. (set catalog (askchoice (choices l0 l1 l2 l3 l4 l5 l6 l7 l8 l9 l10)            
  333.                         (prompt #whatcat)
  334.                     (help   #whatcat)
  335.                         (default lan)
  336.              )
  337. )
  338.  
  339. (if (= catalog 0)  (set #lcat l0))  
  340. (if (= catalog 1)  (set #lcat l1))  (if (= catalog 2)  (set #lcat l2))  (if (= catalog 3)  (set #lcat l3))  
  341. (if (= catalog 4)  (set #lcat l4))  (if (= catalog 5)  (set #lcat l5))  (if (= catalog 5)  (set #lcat l5))
  342. (if (= catalog 6)  (set #lcat l6))  (if (= catalog 7)  (set #lcat l7))  (if (= catalog 8)  (set #lcat l8))  
  343. (if (= catalog 9)  (set #lcat l9))  (if (= catalog 10) (set #lcat l10)) (if (= catalog 11) (set #lcat l11))
  344. (if (= catalog 12) (set #lcat l12)) (if (= catalog 13) (set #lcat l13)) (if (= catalog 14) (set #lcat l14)) 
  345. (if (= catalog 15) (set #lcat l15)) (if (= catalog 16) (set #lcat l16))
  346.  
  347.  
  348. (if (AND (<> catalog 0) (<> #lcat "N/A"))
  349.  (
  350.   (if (> (exists (cat "Catalogs/" #lcat "/amirc.catalog")) 0)
  351.     (
  352.         (set wherecat  (askchoice (choices (tackon where (cat "Catalogs/" #lcat)) (cat "Locale:Catalogs/" #lcat) )
  353.                                   (prompt (cat #wherecat (tackon where (cat "Catalogs/" #lcat)) "\n"))
  354.                             (help   #wherecat)
  355.                                (default 0)
  356.                        )  
  357.         )
  358.  
  359.       (if (= wherecat 1)
  360.         (
  361.          (if (< (exists "Locale:") 2) ( (makedir "sys:Locale") (makeassign "Locale" "sys:Locale") ) )
  362.          (if (< (exists "Locale:Catalogs") 2) (makedir "sys:Locale/Catalogs") )
  363.          (if (< (exists (cat "Locale:Catalogs/" #lcat)) 2) (makedir (cat "sys:Locale/Catalogs/" #lcat)) )
  364.          (copylib (source (cat "Catalogs/" #lcat "/amirc.catalog")) (dest (cat "sys:Locale/Catalogs/" #lcat)) )
  365.         )
  366.   
  367.         (
  368.          (if (< (exists (tackon where "Catalogs")) 2) (makedir (tackon where "Catalogs")) )
  369.          (if (< (exists (tackon where (cat "Catalogs/" #lcat)) ) 2) (makedir (tackon where (cat "Catalogs/" #lcat)) ) )
  370.          (copylib (source (cat "Catalogs/" #lcat "/amirc.catalog")) (dest (tackon where (cat "Catalogs/" #lcat)) ) (optional "nofail") )
  371.         )
  372.       )
  373.  
  374.     )
  375.  
  376.     (message (cat "\nCatalogs/" #lcat "/amirc.catalog\n\n" #catnofind))
  377.   )
  378.  
  379.  )
  380. )
  381. ); End if Catalog dir
  382. ); 
  383.  
  384. ;********************************************************************
  385. ; Ask and and copy docs if wanted!
  386. ;********************************************************************
  387. (set nodocs 0)
  388.  
  389. (set docs (askoptions (choices "AmIRC.guide" "AmIRC.doc" "AmIRC.readme" "AmIRC.ps" "AmIRC.dvi" )
  390.               (prompt #whatdocs)
  391.                       (help #whatdocs)
  392.                   (default 7)
  393.       )
  394. )
  395.  
  396.  
  397.  
  398. (if (<> docs 0)
  399.  (
  400.    (set docsdir (askdir (prompt #wheredocs)
  401.                (help   #wheredocs)
  402.                     (default where)
  403.                 )  
  404.    )
  405.  
  406.    (if (> (exists "AmIRC.guide") 0) 
  407.     (if (IN docs 0) (copyfiles (source "AmIRC.guide") (dest docsdir) (infos) (optional "nofail") ) )
  408.     ( (set #nofounddocs (cat #nofounddocs "\n\nAmIRC.guide")) (set nodocs 1) )
  409.    )
  410.  
  411.    (if (> (exists "AmIRC.doc") 0) 
  412.     (if (IN docs 1) (copyfiles (source "AmIRC.doc") (dest docsdir) (infos) (optional "nofail") ) )
  413.     ( (set #nofounddocs (cat #nofounddocs "\n\nAmIRC.doc")) (set nodocs 1) )
  414.    )
  415.  
  416.    (if (> (exists "AmIRC.readme") 0) 
  417.     (if (IN docs 2) (copyfiles (source "AmIRC.readme") (dest docsdir) (infos) (optional "nofail") ) )
  418.     ( (set #nofounddocs (cat #nofounddocs "\n\nAmIRC.readme")) (set nodocs 1) )
  419.    )
  420.  
  421.    (if (> (exists "AmIRC.ps") 0) 
  422.     (if (IN docs 3) (copyfiles (source "AmIRC.ps") (dest docsdir) (infos) (optional "nofail") ) )
  423.     ( (set #nofounddocs (cat #nofounddocs "\n\nAmIRC.ps")) (set nodocs 1) )
  424.    )
  425.  
  426.    (if (> (exists "AmIRC.dvi") 0) 
  427.     (if (IN docs 4) (copyfiles (source "AmIRC.dvi") (dest docsdir) (infos) (optional "nofail") ) )
  428.     ( (set #nofounddocs (cat #nofounddocs "\n\nAmIRC.dvi")) (set nodocs 1) )
  429.    )
  430.  
  431.    ;(if (= nodocs 1) (message #nofounddocs) ) 
  432.     
  433.  
  434.  )
  435. )
  436.  
  437. ;********************************************************************
  438. ; Ask and and copy AREXX stuff if wanted!
  439. ;********************************************************************
  440. (set size 0)
  441. (foreach "rexx" "#?.AMIRX"  (set size (+ size (getsize (tackon "rexx" @each-name)))) )
  442. (set sizek (/ size 1024))
  443.  
  444. (if (= (exists "rexx/away.AMIRX") 0)        (set #rexx1 (cat #rexx1 "*")) )         
  445. (if (= (exists "rexx/Finger.AMIRX") 0)      (set #rexx2 (cat #rexx2 "*")) )      
  446. (if (= (exists "rexx/Leave.AMIRX") 0)       (set #rexx3 (cat #rexx3 "*")) )       
  447. (if (= (exists "rexx/WallChop.AMIRX") 0)    (set #rexx4 (cat #rexx4 "*")) )    
  448. (if (= (exists "rexx/sendbrowser.amirx") 0) (set #rexx5 (cat #rexx5 "*")) ) 
  449.  
  450. (set arexx (askoptions (choices #rexx1 #rexx2 #rexx3 #rexx4 #rexx5)
  451.                (prompt (cat #whatrexx (tackon where "rexx") #rexxsize1 sizek #rexxsize2 #notinthisarc) )
  452.                        (help (cat #whatrexx (tackon where "rexx") #rexxsize1 sizek #rexxsize2 #notinthisarc) )
  453.                    (default 31)
  454.        )
  455. )
  456.  
  457. (if (<> arexx 0)
  458.  (
  459.   (set rexxdir (tackon where "rexx"))
  460.   (if (< (exists rexxdir) 2) (makedir rexxdir)  )
  461.   (if (AND (IN arexx 0) (exists "rexx/away.AMIRX"))     (copyfiles (source "rexx/away.AMIRX") (dest rexxdir) (infos) (optional "nofail") ) )
  462.   (if (AND (IN arexx 1) (exists "rexx/Finger.AMIRX"))    (copyfiles (source "rexx/Finger.AMIRX") (dest rexxdir) (infos) (optional "nofail") ) )
  463.   (if (AND (IN arexx 2) (exists "rexx/Leave.AMIRX"))    (copyfiles (source "rexx/Leave.AMIRX") (dest rexxdir) (infos) (optional "nofail") ) )
  464.   (if (AND (IN arexx 3) (exists "rexx/WallChop.AMIRX")) (copyfiles (source "rexx/WallChop.AMIRX") (dest rexxdir) (infos) (optional "nofail") ) )
  465.   (if (AND (IN arexx 4) (exists "rexx/sendbrowser.amirx")) (copyfiles (source "rexx/sendbrowser.amirx") (dest rexxdir) (infos) (optional "nofail") ) )
  466.  )
  467. )
  468.  
  469. ;********************************************************************
  470. ; Ask and and copy SOUND stuff if wanted!
  471. ;********************************************************************
  472. (if (> (exists "Sounds") 0)
  473.  (
  474.   (set size 0)
  475.   (foreach "Sounds" "Gost#?"  (set size (+ size (getsize (tackon "Sounds" @each-name)))) )
  476.   (set sizek-gost (/ size 1024))
  477.  
  478.   (set size 0)
  479.   (foreach "Sounds" "Sandro#?"  (set size (+ size (getsize (tackon "Sounds" @each-name)))) )
  480.   (set sizek-sandro (/ size 1024))
  481.  
  482.   (set size 0)
  483.   (foreach "Sounds" "SmKn#?"  (set size (+ size (getsize (tackon "Sounds" @each-name)))) )
  484.   (set sizek-smkn (/ size 1024))
  485.  
  486.   (set sizek (+ sizek-gost (+ sizek-sandro sizek-smkn) ) )
  487.  
  488.   (set snds (askoptions (choices (cat #snd1 " (" sizek-gost "K)")
  489.                                  (cat #snd2 " (" sizek-sandro "K)") 
  490.                                  (cat #snd3 " (" sizek-smkn "K)")
  491.                                  )
  492.                   (prompt (cat #whatsnd (tackon where "Sounds") #sndsize1 sizek #sndsize2) )
  493.                         (help (cat #whatsnd (tackon where "Sounds") #sndsize1 sizek #sndsize2) )
  494.                     (default 7)
  495.         )
  496.   )
  497.  
  498.   (if (<> snds 0)
  499.    (
  500.      (set snddir (tackon where "Sounds"))
  501.      (if (< (exists snddir) 2) (makedir snddir)  )
  502.  
  503.      (if (IN snds 0)
  504.        (foreach "Sounds" "Gost#?"
  505.           (copyfiles (source (tackon "Sounds" @each-name)) (dest snddir) (infos) (optional "nofail") ) 
  506.        )
  507.      )
  508.  
  509.      (if (IN snds 1)
  510.        (foreach "Sounds" "Sandro#?"
  511.          (copyfiles (source (tackon "Sounds" @each-name)) (dest snddir) (infos) (optional "nofail") ) 
  512.        )
  513.      )
  514.  
  515.      (if (IN snds 2)
  516.        (foreach "Sounds" "Smkn#?"
  517.          (copyfiles (source (tackon "Sounds" @each-name)) (dest snddir) (infos) (optional "nofail") ) 
  518.        )
  519.      )
  520.  
  521.    )
  522.   )
  523.  
  524.  
  525.  )
  526. )
  527.  
  528. ;********************************************************************
  529. ; Ask and and copy Submissions stuff if wanted!
  530. ;********************************************************************
  531. (if (> (exists "Submissions") 0)
  532.  (
  533.   (set size 0)
  534.   (foreach "Submissions" "#?.info"  (set size (+ size (getsize (tackon "Submissions" @each-name)))) )
  535.   (set sizek-info (/ size 1024))
  536.  
  537.   (set size 0)
  538.   (foreach "Submissions" "#?.AMIRX"  (set size (+ size (getsize (tackon "Submissions" @each-name)))) )
  539.   (set sizek-rexx (/ size 1024))
  540.  
  541.   (set size 0)
  542.   (foreach "Submissions" "#?.anmb"  (set size (+ size (getsize (tackon "Submissions" @each-name)))) )
  543.   (set sizek-tool (/ size 1024))
  544.  
  545.   (set sizek (+ sizek-info (+ sizek-rexx sizek-tool)))
  546.  
  547.  
  548.   (set sub (askoptions (choices (cat #sub1 " (" sizek-info "K)")
  549.                                 (cat #sub2 " (" sizek-rexx "K)") 
  550.                                 (cat #sub3 " (" sizek-tool "K)")
  551.                        )
  552.                   (prompt (cat #whatsub (tackon where "Submissions") #subsize1 sizek #subsize2) )
  553.                         (help (cat #whatsub (tackon where "Submissions") #subsize1 sizek #subsize2) )
  554.                     (default 7)
  555.         )
  556.   )
  557.  
  558.   (if (<> sub 0)
  559.    (
  560.      (set subdir (tackon where "Submissions"))
  561.      (if (< (exists subdir) 2) (makedir subdir)  )
  562.  
  563.      (if (IN sub 0)
  564.        (foreach "Submissions" "#?.info"
  565.           (copyfiles (source (tackon "Submissions" @each-name)) (dest subdir) (infos) (optional "nofail") ) 
  566.        )
  567.      )
  568.  
  569.      (if (IN sub 1)
  570.        (foreach "Submissions" "#?.AMIRX"
  571.           (copyfiles (source (tackon "Submissions" @each-name)) (dest subdir) (infos) (optional "nofail") ) 
  572.        )
  573.      )
  574.  
  575.      (if (IN sub 2)
  576.        (foreach "Submissions" "#?.anmb"
  577.           (copyfiles (source (tackon "Submissions" @each-name)) (dest subdir) (infos) (optional "nofail") ) 
  578.        )
  579.      )
  580.  
  581.  
  582.  
  583.  
  584.    )
  585.   )
  586.  
  587.  )
  588. )
  589.  
  590. ;********************************************************************
  591. ; Reg stuff 
  592. ;********************************************************************
  593. (if (exists"Register-AmIRC") 
  594.  (
  595.   (if (< (exists (tackon where "Register-AmIRC")) 2) (makedir (tackon where "Register-AmIRC") (infos)) )    
  596.   (if (exists "Register-AmIRC.info")
  597.     (copyfiles (source "Register-AmIRC.info") (dest where) (optional "nofail") ) 
  598.   )
  599.   (set whereR (tackon where "Register-AmIRC"))
  600.  
  601.  
  602.   (set whatreg  (askchoice (choices "English"  "Deutsch" "Francais" "Svenska" )
  603.                            (prompt "What Registration Files (Language) would you like to install?")
  604.                        (help   "What Registration Files (Language) would you like to install?")
  605.                         (default 0)
  606.                 )  
  607.   )
  608.  
  609.   (if (= whatreg 0) ((set basereg "English")  (set baseregTT "English") ) )
  610.   (if (= whatreg 1) ((set basereg "Deutsch")  (set baseregTT "Deutsch") ) )
  611.   (if (= whatreg 2) ((set basereg "Francais") (set baseregTT "French")  ) )
  612.   (if (= whatreg 3) ((set basereg "Svenska")  (set baseregTT "Svenska")  ) )
  613.  
  614.   (if (exists "Register-AmIRC/RegistrationUtility") 
  615.     (copyfiles (source "Register-AmIRC/RegistrationUtility")
  616.                (dest whereR) 
  617.     )
  618.   )
  619.  
  620.   (if (exists (tackon "Register-AmIRC" (cat "Regtool-" basereg ".info")) )
  621.     (copyfiles (source (tackon "Register-AmIRC" (cat "Regtool-" basereg ".info")) )
  622.                (dest whereR) 
  623.                (newname "RegistrationUtility.info")
  624.     )
  625.   )
  626.  
  627.   (if (exists (tackon "Register-AmIRC" (cat "Reg_" basereg ".guide")) ) 
  628.     (copyfiles (source (tackon "Register-AmIRC" (cat "Reg_" basereg ".guide")))
  629.                (dest whereR) 
  630.                (infos)
  631.     )
  632.   )
  633.  
  634.   (if (exists (tackon "Register-AmIRC" (cat "Reg_" basereg ".doc")) )
  635.     (copyfiles (source (tackon "Register-AmIRC" (cat "Reg_" basereg ".doc")))
  636.                (dest whereR) 
  637.                (infos)
  638.     )
  639.   )
  640.  
  641.  
  642.  )
  643. )
  644.  
  645. ;********************************************************************
  646. ; copy keyfile if there 
  647. ;********************************************************************
  648. (if (> (exists "AmIRC.Key") 0)
  649.  (copyfiles (source "AmIRC.Key") (dest where) (infos) (optional "nofail") ) 
  650. )
  651.  
  652. ;********************************************************************
  653. ; Check on Setpatch 
  654. ;********************************************************************
  655. (set #updatesetpatch "\nThe installer looked for 'c:setpatch' and did not find it or you have a version lower then 40.16. AmIRC needs version 40.16 to work correctly. You wany want to upgrade soon. (NOTE: if you keep 'setpatch' in a different place than 'c:' and its 40.16 or higher then this message is void.)")
  656.  
  657. (set vernum1 (getversion "c:setpatch")) (set ver1 (/ vernum1 65536)) 
  658. (set rev1 (- vernum1 (* ver1 65536) ) ) (set setpatchver (cat ver1 "." rev1))
  659. (set current_setpatch "40.16")
  660. (if (< setpatchVer current_setpatch) (message #updatesetpatch) )
  661.  
  662.  
  663. ;********************************************************************
  664. ; AmFTP Plug and End Bye 
  665. ;********************************************************************
  666. (message #ifyoulike)
  667. (exit #byebye)
  668.